home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00697_bt su.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  411 b   |  25 lines
  1. on MouseClick
  2.   global gBoutons, gNumSpr, gSurvolPrec
  3.   beep()
  4.   gBoutons(relache, gNumSpr)
  5.   curseur(1)
  6.   set gSurvolPrec to -1
  7. end
  8.  
  9. on mouseDown
  10.   global gNumSpr, g1erSprNav
  11.   curseur(2)
  12.   set gNumSpr to g1erSprNav + 1
  13.   gBoutons(appuie, gNumSpr)
  14. end
  15.  
  16. on mouseUp
  17.   global gNumSpr, g1erSprNav, gLocLabel, gLabel
  18.   curseur(1)
  19.   if gNumSpr = (g1erSprNav + 1) then
  20.     MouseClick()
  21.   else
  22.     pass()
  23.   end if
  24. end
  25.